module Data.Fits.Fits where
import Data.Fits.KeywordRecord
import qualified Data.ByteString.Lazy as B

data Fits = Fits { primaryHDU   :: HDU,
                   extensionHDU :: [HDU] } deriving (Show)

data HDU = HDU { header :: Header,
                 unit   :: B.ByteString }

instance Show HDU where
  show (HDU h _) = let s = concat . map (++"\n") . map (show) $ take 8 h
                   in s ++ "...........\n"
